home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…rary 5 (Internal Edition)
/
Apple R&P Lib Internal v5.0.iso
/
6-Developer Demos
/
Developer Demos-Ed.
/
EARTHQUEST™ TOUR Demo
/
EARTHQUEST™ tour
/
EARTHQUEST™ tour
/
background_29806.txt
< prev
next >
Wrap
Text File
|
1990-08-03
|
6KB
|
290 lines
-- background: 29806 from stack: in
-- bmap block id: 6889
-- flags: 0000
-- background id: 0
-- name:
-- part 1 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=12 top=18 right=165 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: •Question
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=149 top=322 right=340 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: movies
----- HyperTalk script -----
MOVIES MOVIES MOVIES
on mousedown
get TKpopMenu ("movies",151,129)
if it = "" then
exit mousedown
end if
put item 1 of it into theMenu
put item 2 of it into theItem
put word 1 of theItem into showtime
-- Note: this will process each menu item (even hierarchical)
tkshowpict "present",150,10
do showtime
end mousedown
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=77 top=322 right=340 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: info
----- HyperTalk script -----
on mousedown
--adding table name to popup list
put the short name of this card&&"menu" into zaper
put TKdoTEXT (zaper) after selections
put 328-(17*(the number of lines in selections))into vvv
get TKpopMenu (selections,78,vvv,"true")
put item 1 of it into theMenu
put item 2 of it into theItem
if it = "" then
exit mousedown
end if
put item 1 of it into theMenu
put item 2 of it into theItem
tkhelp (the short name of this card), "mnu,txt,scl,pic,open,opt,left14,top32,wide230,high274", "Menu","","","","",theItem
end mousedown
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=322 right=340 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
INDEXtest
on mousedown
global indexo
Get TKpopMenu ("index",6,43,)
if it = "" then
exit mousedown
end if
put item 1 of it into theMenu
put item 2 of it into theItem
get tkdotext ("earth")
if it contains theItem then
go to card theITem of stack "earth"
end if
get tkdotext ("Journey")
if it contains theItem then
go to card theITem of stack "Journey"
end if
get tkdotext ("People")
if it contains theItem then
go to card theITem of stack "people"
end if
end mousedown
-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=221 top=322 right=340 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: quotes
----- HyperTalk script -----
QUOTES QUOTES QUOTES
on mousedown
get TKpopMenu ("QUOTATIONS MENU",222,1,)
if it = "" then
exit mousedown
end if
put item 1 of it into theMenu
put item 2 of it into theItem
tkhelp "QUOTATIONS", "mnu,txt,scl,pic,open,opt,left14,top32,wide230,high230", "Menu","","","","",theItem
end mousedown
-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=293 top=322 right=340 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sounds
----- HyperTalk script -----
SOUNDS SOUNDS SOUNDS
on mouseDown
Get TKpopMenu("Sounds",295,97,true,busy)
if it = "" then exit mouseDown
put item 1 of it into theMenu
put item 2 of it into theItem
play theitem
wait until the sound is "done"
wait 15
end mouseDown
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=366 top=322 right=340 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: options
----- HyperTalk script -----
on mousedown
global theitem
get TKpopMenu (options,367,210)
if it = "" then
exit mousedown
end if
put item 1 of it into theMenu
put item 2 of it into theItem
global wherefrom -- a global anchor for workshop nav
put the long name of this card into wherefrom
if theItem = "Copy art to Workshop" then
set userlevel to 3
choose select tool
doMenu "Select all"
doMenu "copy picture"
go to last card of stack workshop
doMenu "new card"
doMenu "paste picture"
choose browse tool
opencard
end if
if theItem = "Mystery Tour" then
push card
go to stack "Mystery Tour"
set userlevel to 2
end if
if theItem = "Copy card to Workshop" then
set userlevel to 3
push card
Workshop
end if
if theItem = "Help" then
push card
visual zoom out
go to card id 80705 of stack earth
end if
if theItem = "Quit" then
DoMenu "Quit Hypercard"
end if
if theItem = "Print Card" then
DoMenu "Print Card"
end if
if theItem = "Go to Workshop" then
push card
Go to stack "Workshop"
set the userlevel to 3
end if
end mousedown
-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=439 top=322 right=340 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: labels
----- HyperTalk script -----
LABELS LABELS LABELS
on mousedown
labels
end mousedown